#!/usr/bin/perl
$val=999_9999_9999_9999;
print "value is $val\n";

$val=1000_0000_0000_0000;
print "value is $val\n";

$val=9876_5432_1012_3451;
print "value is $val\n";

$val=2.23e999;
print "max float is $val\n";

$val=2.23e-999;
print "min float is $val\n";

$val = 9.01e+21 + 0.01 - 9.01e+21;
print "first value is $val\n";
$val = 9.01e+21 - 9.01e+21 + 0.01;
print "second value is $val\n";

